Guten Morgen Zusammen,
vllt kann mir jemand bei meinem Problem helfen.
In Tab1 befinden sich Daten in Spalte Q befindet sich der Suchbegriff (Baum, Haus ).
Ich mochte gern, dass so bald in Spalte Q sich einer der gesuchten Begriffe befinden die Zeile Kopiert und in Tab2 eingefügt wird
Diesen Code habe ich im Netz gefunden da passiert aber nichts könnte mir einer erklären warum.
Leider bin ich komplett Neuling auf diesen Gebiet
LG Rene
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 12).Value = "Haus" & "Baum" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
.
|